home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / N-P / Patch⁄Error.cpt / SuperPaint Patch.rsrc / TEXT_251.txt < prev   
Encoding:
Text File  |  1991-11-05  |  378 b   |  20 lines
  1. %binary
  2. /laserbitsdict 5 dict def
  3. /laserbits %Copyright 1987 Silicon Beach Software, Inc.
  4. {
  5. laserbitsdict begin
  6. /savevm save def
  7. /h exch def
  8. /w exch def
  9. /bitsstr w 8 idiv string def
  10. /scalefactor av 65 lt {0.24} {0.25} ifelse def
  11. 0 setgray
  12. w scalefactor mul h scalefactor mul scale
  13. w h true
  14. [w 0 0 h 0 0]
  15. { currentfile bitsstr readstring pop }
  16. imagemask
  17. savevm restore
  18. end
  19. } def
  20.